home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)t5.d64
/
mileage.z
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
555b
|
25 lines
10 PRINT"[147]"
20 PRINT"GAS MILEAGE PROGRAM"
30 PRINT:PRINT
40 PRINT"IS MILEAGE IN KM ? "
50 GETA$:IF A$=""THEN50
60 M=0.6214:IFA$="N"THENM=1
80 PRINT"ARE DISTANCES ACCUMULATIVE ?"
90 GETA$:IF A$=""THEN90
100 K=1:IF A$="N" THENK=2
110 PRINT"IS GAS QUANTITY IN LITRES ?"
120 GETA$:IFA$=""THEN120
130 Q=0.2200:IFA$="N"THENQ=1
190 PRINT"[147]":D0=0
200 INPUT"ENTER DISTANCE";D
210 INPUT"ENTER QTY OF GAS";G
220 INPUT"ENTER COST";C
230 D=D*M:G=G*Q:C=C+C0:C0=C
235 IFD0=0THEND0=D:IFK=1THEN275
240 D1=D:IFK=1THEND1=D-D0
250 D0=D
260 PRINT"DIST.(MI) QTY(GAL) MI/GAL TOTAL COST"
270 PRINTINT(D1*100)/100,INT(G*10)/10,INT((D1/G)*10)/10,C
275 PRINT:PRINT
280 GOTO200